pattern in qbasic in modular programming